“ey MOTT. CPR we, 


) eb OPS 


REO EEN aay FF > eta me Pie 


® The CALL function ® Introduction to FORTRAN ® Comp-u-writer © Compucolor Bell 


About the cover ... Colorcue celebrates its second anniversary with 
this issue, and thanks its many readers for their interest and support. 


URI ER. 6 beolcccee Dees wins Bawa HA RERSDS SEO ROSS VAR ORs awe ee C 
EDITOR’S LETTER 

BAC: WW We BPG BWO ss wsesaucdeceaesiets been teesad oedesenenes 3 
REM 

BIB WANEOR ec ca S ASE Re Raa hse Rha ENS SOTA SHE SENS SII 3 
ADVANCED APPLICATION 

aesembly language = part 7 cecsscdesssueen crate seta ees 3 
REM 

systems software xX-referenCe ccacacacncay ce ee A wes OES es 6 
REM 

CF CAN TNC CION 02. hs ok ee Rate HOR Ss POSES ONSEN ehR eae 3 
REM 

Key Scratchpad memory locations ..66.. 6s. isi res sc eeaweseca nes 10 
CORRECTIONS 

NanGsnake MOGTICALION cssik coe ch Soekees mave dew rsaeeseeswis 13 
INTELLIGENT SYSTEMS ANNOUNCES: 

ENG SOO SONGS i 6c cc5 pd cp oe Ske Sas OOS PERERA ERE RAMA 13 
IT’S GRAPHIC! 

Dar Graons GAG. SCHIP isi icea doo 4 Geek kw ON were nn eos sas i BS. 

PBVETOG CESIGS: 6 i:06o.5.0.046.205 ae veh See See GWA oe GSES eRe 14 
NEW PRODUCTS 

COT ise ri ahh Kee We ORR SEER ES ORES SERS Ta 

COIOe- WIC IGG DUINIGEl: -to5:560 oeede rds Rae eee TRS eee ee eeusa 16 
NUTS AND BOLTS 

GOMDUCOIGE DEN o3.ccd cide Sabo haw heh he oan oon nese seas es 16 
KEEPING IT SIMPLE 

PIGPOGLIC CIEE LG TOPEP AI): 24 so4.c0-sn vee Syke hes ede OS Cee RO Re 1/7 
BOOK REVIEWS 

probiems for computer SOIUCION .. 0.0.5.6. e eee teeta ee aw cna 18 

nome comptiters Can Make VOU FIGH: «6acessaciaiwiwee stave sees 19 
USERS NEWS 

0) 2 | OR ee Ry ae eC ee eee ee a eee ee reo eee eee ee 19 

COPE SNONOENES a4 5s. cnc fav dlc Heke ees AER Lae SeR SRO SS ASS 19 

CPEGIVIEY SDOUNGS: o4v0anrcdrarcteedeeeeee eR eeew OCU eees 19 

STOR NDEORY 44 hice Mol ote bs tek otra nenide wees Pewee ee eee ee 12 


Colorcue is published every other 
month for users of the Compucolor || 
personal computer and users of In- 
tecolor computers by Intelligent 
Systems Corp. Address all Colorcue 
correspondence to ISC, 225 
Technology Park/Atlanta, Norcross, 
Georgia, 30092. Subscriptions to 
Colorcue are $12.00 per year in the 
U.S., Canada, and Mexico; and 
$24.00 elsewhere. ©1980 Com- 
pucolor Corporation. All rights re- 
served. 


Contributing 
to the success 
of this issue: 


Eqgitor — 
Susan Sheridan 


Software & Hardware — 
Gene Boughey 
Knox Pannill 
Myron Steffy 
Heath Thompson 
Bruce Williams 


Art Direction — 
Henry Wood 


EDITOR’S LETTER 


And now we are two! This DEC/JAN issue marks Colorcue’s second anniversary and we're proud of the progress 
we've made. When Colorcue started in 1978, it was little more than a corner-stapled handout that was mailed to the 
few Compucolor Il owners then in existence. Now we're larger, more informative, and more widely read than we ever 
imagined we would be. 


This anniversary issue inaugurates a new Colorcue editor. Actually, it re-inaugurates a former editor — Susan 
Sheridan. Some of you will remember her from those earliest issues of Colorcue. It seems that Susan just couldn't 
stay away from Compucolor! She has returned to manage Marketing Communications for Intelligent Systems 
Corporation, and is very excited about being able to work on Colorcue again. 


Much of the progress that Colorcue has made is due to the tremendous efforts of Cathy Abramson. She helped 
transform Colorcue into a smooth publication that really serves the users’ needs. It was a big accomplishment and 
her efforts have been appreciated by users everywhere. 


And now we are two! The editor’s name is not the only change we've made in Colorcue. We've done a little 
re-vamping in content, form, and publication frequency as well. Now Colorcue will also be serving the Intecolor users. 
We'll be footnoting our COMPUCOLOR II programs with the changes necessary to make them run on Intecolor 
equipment. And we'll be accepting suggestions and contributions from our broadly-based group of Intecolor owners. 
We expect this to expand Colorcue’s utility and help it reach even more users with common interests. 


In order to make Colorcue more responsive to your needs, we have moved the Publications Department back 
in-house, where our staff will be right in the thick of things, working next to the people who have the answers. The 
improved information flow will help Colorcue get news to you more directly. In order to give us the time necessary for 
careful proofreading and absolute deadlines, Colorcue will be published every other month. (There were no AUG/SEP 
or OCT/NOV issues, and consequently everyone's subscription will be extended by two issues.) 


We are firmly committed to supporting the Compucolor users through Colorcue. We think that the new changes 
we've made in the magazine will help us do just that. We always welcome your ideas and suggestions. Address all 
correspondence to: Compucolor Corporation, 225 Technology Park/Atlanta, Norcross, GA 30092, ATTN: Susan 


Sheridan. 
It's great to be back!! Cusam 


also wanted 


Many of you have seen the full page ‘WANTED’ poster that Texas Instruments has been placing in the trade 
magazines this month and last. Tl offers a reward for any software which they accept for marketing. Most of you 
know that we, too, offer a reward for software which we buy from users. If you have a program or two that you would 
like to submit for evaluation, send it to us, in Norcross, to the attention of Gene Boughey. If you wish, of course, we 
will gladly sign a non-disclosure agreement. Prices paid for software vary greatly, from one-time flat fees to royalty 
arrangements. If you have written a program that’s useful to you, it may be useful to others. Send it in and let us have 
a look. 


ADVANCED APPLICATION 


assembly language — part 7 


The assembly language programmer is frequently confronted with the problem of interfacing with the user. We 
have discussed such interface routines as Cl, LO and OSTR in the past; however, these routines do not always 
Satisfy all of the requirements. In this article, we will look at a routine to get a line of user input. 


The GLINE routine allows the user to enter and edit the input line until the line is terminated by a CR (carriage 
return) or the input is aborted by a Control C. Upon termination, control is passed back to the calling routine with the 
status indicated by the ‘Z’ and ‘C flags. If neither the ‘Z’ nor the ‘C’ flag is set, then there is an input line of non-zero 
length in the input buffer and it is terminated with an end-of-line marker (OOH). If the ‘Z’ flag is set, then the input line 
is of zero length and if the ‘C’ flag is set, a Control C was encountered and the input was aborted. 


The values passed to the GLINE routine are the address of the input buffer, the address of the prompt message 
(containing an ‘erase line’ and ending with 239) and the length of the input buffer. The routine will allow the input of 
Length-1 characters. This is done so that there will be a place for the end-of-line marker upon exit. When an attempt 
is made to input any more than the allowed number of characters, they will be ignored and the bell will be rung. If any of 
the additional character(s) is a command or a buffer control character such as ‘erase line’, then it will be processed. 
When sizing the input buffer, it is better to use a size small enough so that the length of the prompt plus the length of 
the buffer does not exceed the length of a screen line. This can simplify screen maintenance. 


ADVANCED APPLICATION .... Cort. 
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ADVANCED APPLICATION .... Cont. 


As one can see, GLINE allows the processing of certain ‘control’ characters. It also allows only upper-case alpha 
characters. A modification can be made to allow both upper-case and lower-case alpha characters and even to 


convert the lower-case to upper-case. It is best to use upper-case because FCS expects upper-case and the testing 
IS Simpler. 


= If an ‘erase line’ is entered, the entire line is erased and the prompt is re-issued. This is acceptable if the prompt 
IS simple, i.e. one string of text. There are occasions that a prompt may be created by several different routines. In 
this case, it cannot be regenerated without exiting GLINE. One solution is to erase the line, set the ‘Z’ flag and test 
for the ‘Z’ flag in the calling routine. This allows the calling routine to regenerate the prompt and then call GLINE 
again. Another approach is to convert an ‘erase line’ into a series of ‘backspaces.’ This places the control of the 
prompt in the calling routine and GLINE does not need the address of the prompt thereby making our routine more 
versatile. The ‘backspace’ routine (BACKUP) has been made a subroutine so that this can be easily implemented. 


The GLINE routine is listed below with some setup code as an example. 


CTRLB EQU 2 - CONTROL B 
CTRLC EQU 3 ; CONTROL C 
BELL EQU v > BELL : 
LF EQU 10 : LINEFEED 
ERASLN EQU 41 : ERASE LINE 
FF EQU 12 : FORMFEED 
CR EQU 13 : CARRIAGE RETURN 
BKSPC EQU 26 : BACKSPACE / CONTROL Z 
ESC EQU 27 : ESCAPE 
DEL EQU 127 : DELETE/ RUBOUT 
V2.79/V5.79 v6.78 v8.73 vs.80 
LO EQU 4E27H ; 3392H 17CB8H 17C8H 
OSTR EQU 1E58H S3F4H 182AH 182AH 
SETUP: 
Lx| H, BUFFER 
4 D,MSGOO 
MvVI B, BUFLEN 
CALL GLINE 
JZ SETUP ; NO LINE: TRY AGAIN 
JC abort routine 


rest of program 


BUFFER: DS 128 


MSGOO: DB 6,3, ERASLN, ‘FILENAME>’,6,2,239 


BUFLEN EQU 50 


4 GLINE — Get a line from the user 


INPUTS: HL => BUFFER 

; DE => PROMPT 

B => BUFFER LENGTH 
OUTPUTS: HL => BUFFER 

A = UNELENGTH 

; STATUS: (Zz) — NOLINE 


(Cc) — ABORT 
(NZ)(NC) — GOOD INPUT LINE 
GLINE: | 

PUSH H ; SAVE BUFFER ADDRESS 


GLINOe: 


PUSH D ; SAVE PROMPT ADDRESS 


XCHG 
CALL OSTR- ; ISSUE PROMPT 
xXRA A 
STA CHARIN ; FLUSH OUT PREVIOUS CHARACTER 
POP D 
POP 
PUSH H ; SAVE BUFFER ADDRESS 
MOV CB ; COPY BUFFER SIZE 
GLINO4: 
Mv! M,O ; SET END OF LINE MARKER 
- es ; READ FROM CONSOLE 
CPI CTRLC ; ISITCTRLC? 
JZ GLx ; YES, EXIT FOR CONSL INTERRUPT 
CPI CR ; ISITCR? 
JZ GLxO02 ; YES, GO PROCESS CR 
CPI BKSPC ; ISITBACKSPACE ? 
JZ GLINOS ; YES, GO PROCESS BACKSPACE 
CPI ERASLN ; ERASE LINE ? 
JZ GLINOG2 ; GO PROMPT AGAIN 
CPI ESC ; ESCAPE ? 
JZ GLIN10 ; IGNORE NEXT CHARACTER 
CPI DEL ; DELETE CHAR ? 
az GLINOS ; SAME AS BACKSPACE 
CPI Z+1 ; ITISA'Z’ORLESS? 
JNC GLINO4 ; IF NOT, BAD CHAR 
CPI met ; IS IT ‘SPACE’ OR GREATER ? 
JC GLINO4 ; IF NOT, BAD CHAR 
DCR C . 3; REMAINING BUFFER COUNTER 
JZ GLINOS ; END OF BUFFER: JUMP 
MOV MA | 
CALL LO ; DISPLAY CHARACTER 
INX - 
JMP GLINO4 ; NEXT CHAR 
GLINO6B: 
INR Cc ; BACK UP COUNTER 
Mv! A, BELL 
Cait LO RING BELL 
JMP GLINO4 
GLINOS: 
May A, C ; BUFFER REMAINING 
CMP B 
JNC GLINO2 ; NO CHARACTERS: REPROMPT 
CALL BACKUP; BACKSPACE ONE 
JMP GLINO4 
GLIN10: 
GALL OORT ; NEXT CHARACTER AFTER (ESC) 
JMP GLINO4 ; IGNORE 
GLX: 
POP M4 ; BUFFER ADDRESS 
ORA A ; CLEAR ‘ZERO’ FLAG 
STC ; SET ‘CARRY’ FLAG 
RET ; CONSOLE INTERRUPT 
GLxXO0e: 
Mv! M,O ; INSERT TERMINATOR 
POP ; BUFFER ADDRESS 
MOV A,B ; BUFFER SIZE 
SUB e ; LENGTH OF INPUT 
RET ; END ‘GLINE’ 
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ADVANCED APPLICATION .. 


BACKUP: 


. Cone: 


; BACKSPACE ONE CHARACTER 


INR C 

DCX H ; BACKUP BUFFER POINTER 
MVI A,BKSPC; ‘BACKSPACE’ 

CALL LO 

MVI as ; SPACE OVER LAST CHAR 
CALL LO 

MVI A,BKSPC; ANOTHER ‘BACKSPACE’ 
CALL LO 

RET 


lf the approach of implementing the ‘erase line’ as a series of ‘backspaces’ is desired, then the prompt must be 
generated external to GLINE and the following changes must be made. 


GLINE: 


GLINOe: 


GLINO4: 


GLINOSB: 


GLIN1e2: 


PUSH H ; SAVE BUFFER ADDRESS 
xXRA A 
STA CHARIN ; FLUSH OUT PREVIOUS CHARACTER 
MOV em ;: COPY BUFFER Size 
CPI ERASLN ; ERASE LINE ? 
JZ GLINI2 ; GO ERASE LINE 
MOV A,C ; BUFFER REMAINING 
CMP B >; SAME AS BUFFER LENGTH °°? 
CC BACKUP; IF SHORTER, BACKSPACE 
JIMP GLINO4 
MOV A,C ; REMAINING BUFFER 
CMP 6B ; SAME AS BUFFER LENGTH ? 
INC GLINO4 ; YES: END OF BACKSPACING 
CALL BACKUP 

GLIN12 


JMP 


Other changes such as allowing Control H as a ‘backspace’ can also be easily implemented. 


In our next issue, we will begin the discussion of the FCS routines and the associated memory. 


system software 


x-reference 


LABEL 


A7ON 
ACRTSP 
ADDU 
ADHLA 
AESCTB 
ANHD 
ASCPL 
AUCNT 
AUTOX 
BOHEX 


The following is the system software cross reference listing for the COMPUCOLOR Il. The 
listing is for those units with V6. 78 system software. In the coming issues of Colorcue, we 
will publish the listings for both Compucolor II units with more recent software, as well as 
Intecolor units. This will allow you to take better advantage of your machine's capabilities, 
and will let you create programs that can be used by everyone, regardless of software 
version. The companion scratchpad memory locations are found on page 10. Labels re- 
ferencing RAM locations are denoted in bold print. 


LABEL HEX LABEL HEX LABEL LABEL HEX 

B7ON 3A19 BASICI 0052 BCRSY BLINK 393F 
BA7OF 3946 BASICW O040 BEGEX BRAKE SAB6 
BARTX SD5F BASOUT 0O033 BEGIN BRATE 3A09 
BARTY 3D57 BAUD 0005 BEGOT BRAT X SA6F 
BARTZ 3D51 BCO'1 35Be2 BEL BREAK 003B 
BARXM 3013 BC2BK 35A8 BFILL BRTRY 80E0 
BARYM 3C4e BCCIX 3A05 BHLAD BSO'1 3S5ED 
BASEX 0055 BCHK 3292 BK2BC BSO0e S5F 1 

BASFL 81F1 BCHK1 32BB BKCOL BSO04 S65F 
BASICE 0046 BCRSX SA2A BLIND BS10 237E 


LABEL HEX 7 LABEL HEX 
BS11 22E2 [— LBYT 339B 
BS1e2 22E9 [= LER1 294E 
BS13 22F3 — LER2 2952 
BSBO1 2CCD = LET 346A 
BSBO8 2CDO0 se LF 38BD 
BSTR 2CBD  ~ LHXD 33A4 
BUCNT 2CA4 |  LINBF 8046 
BUFP 34E7 — LINE 3B45 
BXLOP 34E4 LKC 81E4 
BYLOP 34F9 . | BL 3E41 
CARET 34F6 = tLLi0 GEA4 
CARR 2D86 = tLLe 3E4D 
CBC 2FB5 » LLS3 3E59 
CBC1 322C LL4 SE65 
CBCe 2564 EES 3SE66 
CCl 3A4C = LL6 3E7D 
CCIX 35FC oe )6hLL 7 3E80 
CDO3 S68E » LL8 SE8C 
CD04 22A5 ; eS 3E8D 
CDHD 81B8 — LLDA 28CD 
CDK 386E = LNSX 3897 
CDMK OO1E » LNSY 38S9E 
CDNM 368B - LO 3392 
CDNU 0055 * LOAOO 2869 
CDRSET 3D2C LOCAL GA4F 
CDSEC 2721 LODG 3472 
CENO1 2761  LOFL 81FS 
CENTR 2766 » LOL‘ 28C9 
CHAIN 2768 LOLS 28E6 
CHDEL 37BD oo LOL4 CBEA 
CHDLR 0003 * LOLS 291F 
CHPLO 81c5 LOL6 2936 
CHTIM 81E3 LOL7 293D 
CKEND 3728 = LOLDA 288F 
CLOSE SOE7 fee LS1 3B393 
CLSEQO 3BC4 - tLS2 3B94 
CLX 3BE5 ¢ : LS3 3BSF 
CMASK 318E = LS4 3BA0 
CMPDH 3205 e LS5 3BAB 
CMPHD 38C1 s LS6 3SBAC 
CMT1 2240 LS7 3BBA 
CMTe2 224D = LS8 3BBB 
CMTAB 2265 = LTIM OB5A 
CODE eeur a | LTNOR 347E 
CODE2 2235. | : LTPEN 3SBOA 
COLFL 3974 LTYP 2D5A 
COLOR 3991 M1 356A 
COLW 368D : Me 357A 
COMND 2604 ._ MASK 0008 
COMOF 318B | if MCHO1 2C2A 
COMON 3202 ~ MCHO2 2C41 
COPOO 2F01  MCHNK 2C1A 
COPO1 3FDD = #=MDBLK-~ 811E 
CPLOX 81E7 Fe MFIOA 0000 
CPYDV 81FE oe ~=66MODE 0006 
CR SIDF — MOVDH 343B 
CR1 394F fe MOVHD 3444 
CRe O03E == MOVXY 3D48 
CR3 0010 jae 2CF7 
CR4 OO1E | ™MS150 81FD 
CRATE SEBS | - MSe2 2D04 
CRC 002B | MS3 2D33 
CRC1 3A53 a )6€606MS4 2D42 
CRC2 0024 oo )6©6—MSTO1 3496 
CRCX SFDE — MSTO02 34A3 
CRET 2D94 = MSTOS3 34AB 
CRLF 2DA2 — MSTO4 34AD 
CRSLT 2DC9 — MSTR 3495 
CRSRT 2E16 — MULHD 3562 
CRSUP 2E30 ~ NEGH 3524 
CRSXY 2E3D oe = NIBL 33B3 
CRSY 2E40 fae) «=6NNKC 81E5 
CRTO CE4A ie )=©6NOCHA 0040 
CRT 1 2E5C ~ NOLIN 0020 
CRT2 2E75 - NOROL 3864 
CRT3 2EBe2 [ NOTH 3525 
CRT4 CF14 i 3=6NROLL 3DA3 
CRT5 2F60 f)=6=6C NSEC OOOA 
CRT6 CE7E NTRK 0029 
CRTCHI OFAA | NTYP 2053 
CRTMO 32ES fa OBC 80E3 
CRTMSG 2E15  OCODE 80F5 
CRTR ger/ - ODDFL 81EE 
CRTRAM 332A | OFFPB 26E5 
CRTRY 3334 -— OPODIR 2D60 
CRTSET 33439 _ OPEN 2DAB 
CRTUBE 2FO3 © = #3«OPENX 2C86 
REM cort. 


REM cort. 


LABEL 


OPENY 
OPOX 
OPX01 
ORAM 
ORCHA 
ORHD 
OSEC 
OSERL 
OSTR 
OSTR1 
OSTRe 
OSTR3 
OSTR4 


ZZZZZZ 


2305 
2322 
232A 
2336 
233D 
3E2D 
SBBE 
230B 
81CE 
81D2 
3A0A 
0002 
24DD 
24EC 
24F4 
3429 
341C 
245F 
317F 
31F6 
245E 
284F 
22BA 
22C4 
22De 
342A 
242D 
2EF8 
23A6 
23BF 
23C4 
23D0 
2304 
23E6 
23F0 
2F75 
26EE 
2ECC 
0004 
341F 


the “call” function 


Myron Steffy of Sun City, Arizona, has been an active COMPUCOLOR II user since the “early days’. He has been 
a prolific correspondent and his comments and suggestions are always appreciated. Myron submitted the following 
article which illustrates the use of the CALL function to load a screen display from RAM. His program is concise and 
should be easy for most readers to understand. 


“For along time | have been trying to find a useful application for the “call” function in Basic. Other than its use 
with the “Soundware” device, | don’t recall anything having appeared in Colorcue. One of the first programs | 
originated in Basic was a satellite tracking routine for the series of amateur radio satellites generically known as 
“OSCAR”. Not too long ago | was trying to show the satellite's motion graphically on a map of the United States. At 
first | used an erasing subroutine that worked well but left no trail. Then | decided that it would be better to leave each 
track in place for a full day's run. 


The next thing that cropped up was the necessity for recalling the map of the U.S. each time. This particular 
graphic was stored on disc as a “Screen.Dsp” which required accessing the disc drive every few seconds. This 
offended my sense of propriety as | had all of this memory just sitting there. To put the rather elaborate graphic into 
code was a task that | wasn't up to. This is the occasion for the use of the “call” function. 


The idea briefly is this: store the screen display in high memory and then move it into screen memory ‘en block’ 
with a machine language subroutine to be accessed by the call function. Strangely enough, it is the first piece of 
assembly language that | have ever written that worked the first time. This | must publish! 


The source file is attached as well as a Basic routine that will enter the machine code. The procedure for calling it 
up is simply “X = CALL (O)”. The display is recalled within one or two seconds without bringing up the disc drive. | can 
think of anumber of uses for it — recalling a checker board or any other display that will be used over and over. Saves 
a lot of wear and tear on the machinery. 


The disc contains the Screen.Dsp (courtesy of the Northern California Users Group); the source file for 
“Reload” and its PRG. version; then you will find the Basic routine for “Reload” and a program called “Demo” which 
illustrates the use of the call function in the program. 


Referring to the “Reload” program in Basic, line 200 samples the display at three points to see if it has already 
been loaded. If not, line 210 performs this function, placing it at the top end of a 16K memory. The “Peeks” would 
have to be changed for the particular display in use. Line 200 could be eliminated if subsequent “runs” were started 
at line 250. Lines 220 to 250 load the machine code for the call routine. This is probably faster than loading the 
assembly version from FCS. Line 260 inserts the call jump address which will be lost if “CPU Reset” is used. Line 
280 clears the screen, fixes the “page” mode, homes the cursor and executes the “Call Jump”. 


As you will see from the source file, the program is structured to run on either 6.78 or 8.79 Basic and can be 
used anywhere it is necessary to frequently recall a display. | have set it up for 16K although of course it could be 
readily pushed up to the top of a 32K RAM. | hope that it will be of some use to the Colorcue readers.’ 


CALL ROUTINE TO LOAD SCREEN DISPLAY FROM RAM 
by Myron T. Steffy, Sun City, AZ 11/28/80 
for 6.78 or 8.79 Basic 


SCREEN DISPLAY IS TO BE LOADED AT OAFFFH BY MAIN PROGRAM 
BASIC PROGRAM MUST INCLUDE THE FOLLOWING STATEMENT: 
“POKE 33283,33:POKE 33284,175:REM CALL JUMP” 

TO CALL UP DISPLAY, USE “PLOT 8: X = CALL (0)" 


START: ORG OAEFFH ; 447939 
LXI SP, STACK 
CALL SETUP ; WHICH BASIC? 
LXI H, RELOAD 
SHLD 8203H ; CALL JUMP 
MVI A, OCSH ; JUMP 
STA 681 BFH ; ESCAPE T- 33215 
LXI H, RELOAD 
SHLD 81COH ; 33216 
LX| H, OAEFEH ; PROTECT MACHINE LANGUAGE 
SHLD S0ACH ; 8Bes40 
MVI A,45H ; e& EXIT TO BASIC 


IMP . EXIT 


RELOAD: PUSH PSW ; SAVE STATUS 
REM Cort. 
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REM Cort. 


PUSH Hi SAVEH &L 
LI H, OAFFFH LOW END OF DISPLAY 
LXI D, 7O00H SCREEN ADDRESS 
LXlI B, OBFFFH HIGH END 
NEWAD: MOV A,M FETCH CONTENTS TO BE MOVED 
STAX D STORE IN NEW LOCATION 
MOV A,H HIGH BYTE OF ‘FROM’ ADDRESS 
CMP B PAGE LIMIT? 
JINZ INCAD NO, CONTINUE TRANSFER 
MOV A,L YES; GET LOwW'S’Te 
CMP C LOW ADDRESS LIMIT? 
JZ GHOME ALL FINISHED 
INCAD: INX H NO, ADVANCE ‘FROM’ POINTER 
INX D ADVANCE ‘TO’ POINTER 
JIMP NEWAD 
GHOME: POr H RESTOREH &L 
POP PSW AND STATUS 
RET RETURN TO CALLING PROGRAM 
EXIT: IMP O0O00H TO BASIC 
SETUP: LDA 0001 H 
CPI 6CH 
INZ VER879 
VERG 7B: LXI H, OS53AH EXIT 
SHLD EXIT + 4 
eT 
VER879: LXI H, 2420H EXIT 
SHLD EXIT + 1 
RET 
DS 20H STACK AREA 
STACK: 
END START 


100 REM ROUTINE FOR LOADING A SCREEN DISPLAY INTO HIGH MEMORY 
110 REM 

120 REM AND RECALLING IT TO THE SCREEN WITH A CALL STATEMENT. 
140 REM 

160 REM 

@2O00 IF PEEK (45963) + PEEK (47198) + PEEK (48225) = SS8THEN 220 
210 PLOT 27,4:PRINT “LOAD SCREEN.DSP AFFF”":PLOT 27,27 

220 DATA 245, 229,333,255, 175,17,0,112,1,255,191,126,18,124 
230 DATA 184,194,56,175,125,185,202,61,175,35,19,195,44,175 
240 DATA 225,241,201,0,0,0 

250 FOR AD = 44833TO 44865:READ VL:POKE AD, VL:NEXT AD 

260 POKE 33283, 33:POKE 33284, 175:REM CALL JUMP ADDRESS 
270 RESTORE 

280 PLOT 12,27,24,3,0,0:X* = CALL (0) 


REM 

key scratchpad memory locations 

These locations are offered in conjunction with the system software cross reference article which starts on page 6. 
This is the system RAM reference listing with decimal value and description. 


LABEL HEX 


BASFL 81F1 
— ae 681D0 


DECIMAL DESCRIPTION 


33265 BASIC output FLAG ' 
33232 Blind fill (+O= A7 bit, +1= CCN 
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LABEL 


BHLAD 
BRTRY 
BUCNT 
Sure 
CMASK 
COLFL 
CRATE 
CRC1 
CRC2 
CRTRAM 
CRTRY 
CTRKO 
CTRK1 
CUCNTO 
CUCNT 1 
DBF 
DBFE 
DBLK 
DFDV 
DFUN 
DISPCK 
DUPLX 
ESCCRT 
EXTBF 
FATR 
FAUX 


FBLK 
FBUF 
FCSFL 
FDBK 
FDEN 
FDRV 
FFCN 
FHAN 
FLAD 
FLBC 
FNAM 
FPS 
FPBE 
PreeP 
FRriTR 
FSAD 
FSBK 
FSIZ 
PTY 
FVER 
FXBC 
HEX 


INPCRT 
INPFL 
JUMP 
KBCHA 
KBDFL 
LINBF 
LKC 
LOFL 
MDBLK 
MS150 
NKC 


68104 
B0EO 
681B4 
8B047 
81E0O 
B81E6 
Site 
8043 
6044 
81 AF 
BS0E2 
6161 
681Be 
681B5 
681B6 
6811D 
819D 
6811D 
B0OFO 
S0F2 
681 BC 
810D 
61 BF 
8106 
SB0F8 
810F 


68115 
Sr is 
Ste1 
810D 
810E 
6114 
68113 
S74.4 
8108 
= it 
BS0F9S 
BSOF7 
6811D 
BS0F3 
6118 
810A 
8103 
8105 
SBOFF 
8102 
= fa Bi 
681B8 
681B9 
B1BA 
681BB 
81C5 
Sites 
Ser 
Site 
81 DF 
68046 
B1E4 
SiFo 
B44 
61FD 
B1E5 


DECIMAL DESCRIPTION 


33236 
32992 
33204 
32839 
33248 
33254 
33250 
32835 
32836 
33199 
3es94 
33201 

33202 
33205 
33206 
33053 
33181 

33053 
33008 
33010 
33212 
33245 
33215 
33238 
33016 
33039 


33045 | 


33047 
33249 
33037 
33038 
33044 
33043 
33041 

33032 
3303 1 

33017 
33015 
33053 
3301 1 

33051 

33034 
393027 
33029 
33023 
33026 
330493 
33208 
33209 
33210 
3939211 

393221 

33251 

33255 
33278 
33247 
32838 
393252 
33273 
33054 
33277 
33253 


Blind cursor H&L address 

Block reentry counter 

Spare 

FCS line buffer 

Current mask register setting 
Flag (FG/BG) O=off, 1=0n 
Current baud rate setting 

1st CRC byte count for disk 

2nd CRC byte count for disk 

CRT RAM 

‘Chunk’ reentry counter 

Current track Micro Drive O 
Current track Micro Drive 1 

User count Micro Drive O 

User count Micro Drive 1 
Directory block buffer 

End of directory block buffer 
‘This’ directory block number 
Default device (ASCII 

Default unit (ASCII 

Jump to display clock 

Duplex FLAG => (O = local, — = full, + = half) 
User ESCAPE a jump vector 
External output port buffer 
Attribute byte 

New file closing size, or aux. byte count for 
sequential routines. 

Block number for transfer 

Buffer pointer for transfer 

FCS output FLAG 

Directory block number 

Directory entry number 

Drive number 

Handler function code 

Handler address 

Load address for ‘image’ file 

Byte count of last block 

File name 

Open type code 

End of system FPB 

File parameter block pointer 
Buffer pointer for sequential routines 
Start address for ‘image’ file 
Starting block number 

Number of blocks 

File type 

File version number 

Byte count for transfer 

Binary fractions of a second 

O to 59 seconds of real time clock 
O to 59 minutes of real time clock 
O to 23 hours of real time clock 
User input FLAG jump vector 
Serial input FLAG 

Jump used for cursor position — left, right, etc. 
Keyboard character 

Keyboard FLAG 

BASIC Line buffer 

Last key code 

System output FLAG 

Maximum directory block number 
Counter for 150 millisecond delay 
New key code 


REM cont. 
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REM Cont. 


LABEL 


OBC 
OCODE 
ODDFL 
ORAM 
OSEC 


OUTCRT 


OUTFL 
OUTHL 
OVERS 
PCRAD 
PLOFL 
PSTAT 
PUP 
READY 
RFLG 
ROLFL 
ROLLN 
RST1J 
SBC 
SEC 
SECi5S 
STACK 
TBC 
TBLK 
TDRV 
TEMPO 
TEMP 1 
TEMP2 
TEMPS 
TEMP4 
TEMPS 


TEMPHL 


TFCN 


THRUFL 


TMEM 
TMP 1 
TRAM 
TRK 
VCRAD 
VFILL 
VHLAD 
XDATA 
XFBLK 
XFBUF 
XFDRV 
xXFFCN 
XFHAN 
XFXBC 
XOUTO 
XOUT 1 
XTWO 
XZERO 
YDATA 
YTWO 
YZERO 
ZFATR 
ZFAUX 
ZFBLK 
ZFBUF 
ZFOBK 
ZFDEN 
ZFDRV 


HEX 


BOES 
BOFS 
Sice 
BS0FO 
BS0ED 
681C2 
681F8 
6B1FB 
BOFG 
81D8 
B1DA 
81D0B 
681B7 
Sie 
SB0E1 
681D0C 
681CD 
681C8 
BO042 
BO0EE 
S107 
B042 
BS0EB 
BOE7 
BS0E6 
681F2 
B1F3 
B1F4 
81F5 
6B1F6 
B1F7 
S0DE 
BOES 
81DE 
B0E9 
81 AB 
BODE 
B0EF 
681CB 
681CE 
81D2 
B1EC 
B1A1 
B1A3 
681 A0 
819F 
6819D 
B81A5 
B81 AF 
681BO 
B1EA 
Si&F 
B1ED 
B1EB 
681FO 
8083 
BOSA 
BOAO 
BOA2 
8098 
8099 
BOSF 


DECIMAL 


32995 
33013 
33262 
33008 
33005 
33218 
33272 
33275 
33014 
33240 
393e4e2 
33243 
33207 
332793 
32993 
393e44 
393229 
33224 
32834 
33006 
33239 
32834 
33003 
32999 
329398 
33266 
33267 
33268 
33269 
33270 
3327 1 

32990 
32997 
33246 
33001 

33195 
32990 
33007 
33227 
33230 
393234 
33260 
33185 
33187 
33184 
33183 
33181 

33189 
33199 
33200 
33258 
33263 
33261 

33259 
33264 
32899 
32922 
32928 
32930 
32920 
3e92 1 

32927 


DESCRIPTION 


Old byte count 
Open type code 


FCS RAM 

Old sector number 

User output FLAG jump vector (table 6) 
Output port FLAG 

Output port H&L address 

Original version 

Plot cursor address 

Current plot submode 


Power up FLAG 

Keyboard character ready flag 
‘Restore’ FLAG / counter 
Roll FLAG => (O= noroll, 1= roll 
Roll count (0 = no roll) 
Timer 2 jump vector 
Sector byte count for disk 
Sector number 

Repeat key scan counter 
Stack from screen to here 
Byte count 

Block number 

Drive number 

Temporary 

Temporary 

Temporary 

Temporary 

Temporary 

Temporary 

Free for future use 
Function code 


Memory buffer pointer 

Used by COPY & maybe others? 
Temporary RAM start in BASIC RAM 
Track number 

Visible cursor address (+O = X, +1 = Y) 
Visible fill (+O = AZ bit, +1 = CCI 
Visible cursor H&L address 

Plot mode temporary 

Auxiliary block buffer 

Auxiliary buffer pointer 

Auxiliary drive number 

Auxiliary handler function code 
Auxiliary handler address 
Auxiliary byte count 

Current phase Micro Drive 0 
Current phase Micro Drive 1 

Plot mode temporary 

Plot mode temporary 

Plot mode temporary 

Plot mode temporary 

Plot mode temporary 

Auxiliary FCS FPB storage 
Auxiliary FCS FPB storage 
Auxiliary FCS FPB storage 
Auxiliary FCS FPB storage 
Auxiliary FCS FPB storage 
Auxiliary FCS FPB storage 
Auxiliary FCS FPB storage 
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LABEL HEX DECIMAL DESCRIPTION 
ZFFCN S09E 32926 Auxiliary FCS FPB storage 
ZFHAN BS09C S3e924 Auxiliary FCS FPB storage 
ZFLAD 8093 32915 Auxiliary FCS FPB storage 
ZFLBC B092 3e9g14 Auxiliary FCS FPB storage 
ZFNAM S084 329300 Auxiliary FCS FPB storage 
ZFPB 8082 32898 Auxiliary FCS FPB storage 
ZFPBE BS0A8 32936 End of auxiliary FPB, End of BASIC input buffer 
ZFPTR BOAG 32934 Auxiliary FCS FPB storage 
ZFSAD 8095 32917 Auxiliary FCS FPB storage 
ZFSBK S08E 32910 Auxiliary FCS FPB storage 
ZFSiZ BOSO0 32912 Auxiliary FCS FPB storage 
ZFTYP BO8A 3239306 Auxiliary FCS FPB storage 
ZFVER S08D 329309 Auxiliary FCS FPB storage 
ZFXBC BOA4S 32932 Auxiliary FCS FPB storage 
ZRAM B082 32898 FCS stuff / BASIC input buffer 
REM 
system software map 
RESTART EXT’D FILE CRT & AVAILABLE SCREEN SYSTEM USER 
VECTORS DISK CONTROL PLOT ROM SPACE REFRESH SCRATCH RAM 
INITIAL BASIC SYSTEM GRAPH FOR USER RAM PAD 
VALUES ROM ROM ROM FIRMWARE HIGH/LOW RAM 
0000 0040 211C S6AB 4000 6000 B000 8B200 
to to to to to to to to 
OOSF S118 SB6AA 3FFF SEFF FEFF 8B1FF FFFF 


NOTE: In BASIC 8000-82939 is System and BASIC Scratch pad RAM. 
In BASIC B29A-FFFF is the actual user RAM available. 
To use 4000-S5FFF, an ADD-ON ROM STACK is required. (CC P/N 100980) 


CORRECTION 
handshake modification 


In arecent issue of Colorcue we published a handshake modification. Unfortunately, that data was incorrect and 
caused a few problems. Below find the proper information: 

1. Tie Pin 9 of the Je edge connector to UD1 Pin 4. 

ce. Tie Pin 6 of UD1 to Pin 3 of UC1. 

3. Tie Pin 4 of UC1 to Pin 10 of UE1. 

4. Add a 10K 1/4 W resistor between Pin 4 of UD1 to +12VDC. 


INTELLIGENT SYSTEMS ANNOUNCES: 
the 3650 series 


The Intecolor 3650 series of terminals and desktop computers, which was released in October, 1980, provides 
a cost-effective solution for the small business requiring good capabilities at a low price. The 3650 preserves many 
of the features of the 3621, while adding some design improvements that have upgraded the performance. For 
example, the logic board is of a completely new design, and the disk controller is of high computer grade. The 3650 
has a built-in SOK bytes mini-disk (instead of the 3621's micro) and offers the option of add-on disks such as 
dual-sided double 8-inch floppies as well as hard disk. The internal drive has been specially tested to ensure the kind of 
reliability that is imperative in serious applications. For those users who already have significant software on 
micro-disk, upgrading to the mini-disk is no problem — there's a utility to transfer programs to the 3650, and almost 
all BASIC programs will run without modification. Assembly language programs will need some slight changes. For 
more information, contact our customer service department. 


IT’S GRAPHIC! 


bar graph and scaler 


We've decided to add a graphics column to Colorcue because so many of you have questions about using the 
graphics, and because, after all, graphics is one of the CCIl’s major features. While you can easily find books that 
teach assembly language or ‘DO’ loops or ASCII codes, finding written information about graphics is a little more 
difficult. And even when you do get information, it may not be specialized to the CCIl, so we thought we'd try to help 
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IT’S GRAPHIC! Cort. 


out through Colorcue. ne) su 

If you will recall the first two issues of Colorcue, they did include graphics information. We had the now-famous 
‘Random Rectangles’ and the less ubiquitous ‘Circular Plots’. This month we're going to start where they left off and 
explain another simple feature of the CCIl’s graphics — bar graphs. The program below creates a bar graph and 
automatically scales it to reflect the data given for the graph. All changes necessary for Intecolor equipment are 
contained in REM statements. 

Line 100 of the program erases the screen with foreground green and background black. Lines 110 and 120 
contain the data for the scaling factor. Line 130 dimensions the variables MR, SF, and SP, which stand for Maximum 
Range, Scaling Factor, and Scaling Pointer. Line 140 is a loop to read this data. Line 1 0 initializes three variables. 

Line 160 generates a random number between 12 and 6. Line 170 generates a minimum and maximum bar value. 
Line 200 sets everything in readiness for drawing the bar graph. It sets the page mode, erases the page, and draws 
the x and y axes of the graph. Lines 210 through 280 print variables on the screen. 

Line 300 sends program control to line 470 to get the scaling factor. Lines 330 through 390 generate the 
dashed line for the graph routine. Line 400 defines the y1 and ye variables. 

Line 410 sets the foreground to magenta and draws a vertical bar, as does line 420. 

Line 480 starts the subroutine that contains the scaler for the program, with line 520 determining the scaling 
factor. 


SO REM BAR GRAPHS AND SCALER 
100 PLOT6,2,12 
110 DATA 10,1,3,15,2.5,5,20,2.5,4,25,2.5,3,30,5,5 
120 DATA 40,5,4,50,5,3,60,10,5,80,10,4,100,10,3 
130 DIM MR (10), SF(10),SP(10) 
140 FOR !I=1 TO 10: READ MAU, SFUW),SPU) : NEXT | 
150 YO=2: YX=O: Yl=Ssg 
160 R=RND (1) *12-6: R=10AR 
170 MI=—R+RND (1) *2*R: MKX=MI+RND(1) *R 
180 PLOT 27,88,15,6,2,12 
190 X=127: Y=127: REM ON INTECOLOR 8001 USE X=159: Y=191 
200 PLOT 2,X,0,242,20,0,20,Y,255 
210 PLOT 3,45,20: PRINT “MAX = ";MxX 
220 PLOT 3,45,21 : PRINT “MIN = ”;MI 


230 PLOT 3,45,23: PRINT “ YI = "; YI 
240 PLOT 3,45,24 : PRINT “ YX = "; YX 
250 PLOT 3,45,26: PRINT “SI = ";SI 
260 PLOT 3,45,27: PRINT “ SX = ";SX 
270 PLOT 3,45,29: PRINT “ BI = ";Bl 


280 PLOT 3,45,30: PRINT “ BX = ";BX 

280 Y=31 : REM ON INTECOLOR 8001 USE Y=47 

300 GOSUB 470 

310 BT=M1 

320 FOR I=1 TO 12: IF Y<O THEN |=12 : GOTO 380 

330 PLOTS3,O.-Y, 

340 _ IF INT(ABS(M1/SF) ) <1 THEN M1=0O 

350 PLOT 1S: PRINT RIGHTSC" "4+ STRBS(M1), 9) 
360 PLOT 6,4: IF M1=0O THEN PLOT 6,7 

370 IF I>1 THEN PLOT 3,11,Y: PRINT “------------------------------------------------------- . 
380 M1=M1+SF: Y=Y-SP (KK) 

380 NEXT! 

400 Y1=(MI-BT *SP{KK) *4/SF : Y2=(MX—BT) *SP{KK) *4/SF 
410 PLOT 6G,5,2,40,Y0+Y1,242,40,Y0+Y2,255 

420 PLOT 6,5,2,41,Y0+Y1,242,41,Y0+Y2,255 

430 IF Ye-Y1<YI THEN YI=Y2-Y1 : SI=MI: SK=MX 

440 IF Ye-Y1>YxX THEN YX=Y2-Y1: BIF=MI: BX=MX 
450 IF |IS=“A" THEN 230 

460 GOTO 160 

470 REM ** SCALE ** 

480 NS=MxX-—MI: LS=LOG(ABSIN9S))/LOG(10). 

490 DS=INT(IL9S)—1 : MS=SGNINBS) *INT(10ALS—D9)+. 9899) 
500 FOR Il=1 TO 10: IF MS<=MAUUN THEN KK=II: Il=10 
510 NEXT II . 

520 IF KK>10 THEN KK=1 : DS=DS+1 

530 SF=SF(KK) *10aDS : M1 =INT(MI1/SF) *SF 
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540 M2=Mx: IF MX/SF< > INT (MX/SF) THEN M2=INT(MX/SF) *SF+SF 
550_ IF (M2—-M1)>(MRIKK)+.001) *10AD9 THEN KK=KK+ 1 : GOTO 520 
560 RETURN 


layered design 


The following is another simple program that uses the COMPUCOLOR II's graphics capabilities. It draws a 
layered design in various colors. Changes required to run this program on Intecolor systems are given in REM 
statements. 


100 REM OVERLAYING GRAPHIC DESIGN 

110 RT=RND(10*RNDI(34)) 

120 PLOT G,O,12,15,27,88 

130 XkK=122: YY=122: REM FOR INTECOLOR 8001 USE XX=154: YY=186 
140 K=120: Y=120: REM FOR INTECOLOR 8001 USE X=152: Y=184 
150 PLOT 3,0,0,6,2 

160 INPUT “HOW MANY LAYERS? (TRY 3) ";LC : PLOT 28,11 

170 BGS="“N”" 

180 INPUT “STEP SIZE? (TRY 14)";S : PLOT 28,11 

190 REM 

200 AC=ACH+1 : IF AC>=LC THEN AC=0: FOR XD=1 TO 1000: NEXT: PLOT 12 
210 GOTO 400 

220 X1=XKA: Y1=YA: X2=XB: YE=YB: X38=XC: YB=YC: X4=XD: Y4=YD 
230 A=INT(7*RNDO11)4+ 1) 

240 IF BGS<>"“N” THEN PLOT 12 

250 XP=X1: YP=Y1: XQ=xX2: YQ=Y2 

260 PLOT 29,16+A 

270 S1=(X3-x1VYS 

280 S2=(<x4-xKeyvs 

290 S3=(Y3-Y1¥YS 

300 S4=(Y4-Yeyvs 

310 FOR XP=xX1 TO XS3 STEP 81 

320 PLOT 2,XP, YP,242, XP, YP, XG, YG,255 

330 PLOT 2,XX—XP,YY-YP,242,xXxk-—XP, YY-YP, XK—-XG,YY-YG,255 
340 PLOT 2,XxX-—XP,YP,242,xXxX-—XP, YP, Xx—-XG,YG,255 

350 PLOT 2,XP,YY-YP,242, XP, YY-YP, XG, YY-YG, 255 

360 YP=YP+S3: XQ=xXQ+S2 

370 YQ=YQ+S4 

380 NEXT XP 

380 GOTO 180 

400 XKA=INT(X*RND(1)4+2) 

410 YA=INTCY*RND(1)+2) 

420 XB=INT(X*RND(1)+2) 

430 YB=INTCY*RND(1)+2) 

440 XC=INT(X*RND(1)+2) 

450 YC=INTCY*RND(1)+2) 

460 XD=INT(X*RND(1)+2) 

470 YD=INT(Y*RND(1)+2) 

480 GOTO 220 


NEW PRODUCTS 


comp-u-writer 


lf you still consider word processing a function strictly for the office, then you haven't been keeping up with the 
progress that’s been made in this field. WP (word processing) systems are used in all kinds of applications. The 
number of word processing systems available in today’s market is exceeded only by the number of stars in the sky, 
and yet each of these systems has features and capabilities all its own. At ISC, we have two word processing 
systems. Oneis a CP/M system for the Intecolor Business Systems, on which development started about two years 
ago. Colorcue has been created and printed using the word processor from the very first issue. Now available for 
COMPUCOLOR II owners is a word processing system that allows you to create, edit, and update documents of all 
kinds. 

The system is “COMP-U-Writer”, and it was designed especially for the COMPUCOLOR II. COMP-U-Writer 
uses color effectively to make learning and using the system easier. 

The COMP-U-Writer compares very favorably with other WP systems available for microcomputers. It has 
many of the sophisticated features found on expensive stand-alone systems. COMP-U-Writer lets you generate 
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NEW PRODUCTS .... cont. 


text on the screen, and then allows you to make corrections or formatting changes with a few keystrokes. When the 
copy reads exactly as you want it, you send the file through the RS232C port to a printer. With COMP-U-Writer, you 
avoid all the typing, erasing, and retyping required with conventional typewriting. COMP-U-Writer uses function 
keys to access its many capabilities, such as: 


search and replace center 
move delete 
new page 


COMP-U-Writer can be useful for the one-man business, but it has many uses for other computer users as well. 
Students can write term papers on the COMP-U-Writer, and save time by obviating all the rewriting and retyping 
normally needed. Many Compucolor || users find COMP-U-Writer invaluable for personal correspondence as well. 

We are pleased to enter the WP market with COMP-U-Writer, because we believe that it is a good system. It 


was reviewed in InfoWorld a few months ago and received a very good recommendation. The system was evaluated 
for: 


Functionality Good 
Ease of Use Excellent 
Documentation Excellent 
Error Handling Fair 
Support Excellent 


The COMPUCOLOR II is ideal for WP because it has a commercial quality keyboard which so many of its 
competitors lack. And color enhancement allows improved communication and operator response. COMP-U-Writer 
sells for $262.50 and can be ordered from your dealer or from our factory. COMP-U-Writer requires at least 16K 
and a 117-key keyboard. 


ink-jet printer 


PrintaColor Corporation of Norcross, GA, announces the introduction of their !S8001 Color Ink-Jet Printer. 
Designed primarily for graphics applications, the 158001 can print in seven colors (yellow, magenta, cyan, blue, 
green, red, and black) on a white background. The |S8001 contains its own microcomputer, including 16K RAM used 
as a data buffer, Since the printer is “intelligent”, it operates with a minimal burden on the host computer. The host's 
processing ability is not tied up except for the 8-10 second initial transmission of data to the printer. 

The unit has 12 ink-jet nozzles, four for each of the three primary colors. Additional colors are made by 
overlaying the primaries. Resolution is 90 dots per inch. The paper system is continuous-feed, Z-fold and 147s inches 
wide with 80 characters per line capability. 

Initial models of the 1S8001 are compatible with the Intecolor 8001 series computers and terminals. Also 
available are models compatible with the ISC 3600 series and the COMPUCOLOR Il. The price of the unit is 
$6000.00. 

With its easier readability and additional computer functions, the Printacolor 1S8001 can effect considerable 
time savings and higher efficiency for the color CRT user. 

For additional information, write to Printacolor Corporation, P.O. Box 52, Norcross, GA 30071, or call (404) 
448-2675. 


NUTS AND BOLTS 


compucolor bell 


Those with the version 8.79 software have available the option of installing a bell on their COMPUCOLOR Ils. As 
you know, there was no provision for a bell in the original design of the machine, but because a bell can be quite useful, 
there is now a way to attach this device to the computer. 

First, and most obviously, the bell is great for punctuating computer programs that require user input. You can 
program the bell to sound when a mistake is made or when a response is required. The bell makes these programs 
more interactive because it focuses user attention at critical moments and disallows error. In real-time applications, 
the bell can add excitement with sound effects or indicate a time out. 

Secondly, and this use is one you might not have thought of, the bell is very valuable in the debugging process. 
PLOT 7 is the command sequence that rings the bell, and by inserting PLOT 7's at various points in a program, you 
can determine if the program is passing certain statements. Or, if the program has to perform a given function a 
specified number of times, you can insert a PLOT 7 and audibly count to see if it's successful. 

Assembly and installation of the bell is not especially difficult, but it requires a little bit of time. You will need: 


Sonalert assembly soldering iron 

sponge, etc. needlenose pliers 

wire cutters 60/40 rosin core solder 
IN914 diode mounting bracket or glue 


16-pin socket 
It. gauge (24-28 AWG) insulated stranded wire 
— two 12” lengths, one red, one black 
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The Sonalert assembly can be purchased from Compucolor Corporation. Order part number #010015. The 
price is $21.00. Or, you may be able to find the Sonalert at radio supply/hobby stores. The specs are: 
Sonalert model SNP428 
Volts 4 — 28 VDC 
Amps .003 — .016 
Manufactured by P. R. Mallory & Co., Inc. 

All other materials are readily available at radio supply/hobby stores. 

The procedure for equipping the COMPUCOLOR II with sound is as follows: 

1. Add the IN914 diode to the Sonalert by soldering the negative side of the diode to the plus side of the Sonalert; 
and the positive side of the diode to the negative side of the Sonalert. 

2. Attach the two 12 inch wires. Ared wire for the + 5VDC (+) side of the Sonalert, and a black wire for the minus 
(—) side of the Sonalert. Lightly twist the wires together. Bare the free ends of the wires and tin them with 
solder. 

3. Attach the red wire to a +5VDC location on the logic board. One good place is Pin 8 of the J7 (internal disk drive 
connector). The black wire can be connected to Pin 6 of J/7. 

4. As J7 is a socket that the internal disk drive plugs into, the best method of connecting the Sonalert is with 
another socket. Note the drawing below: SONALERT 


TO DRIVE 


VIEW OF COMPUCOLOR Ii LOGIC BOARD MHZ 
HT 16-PIN CABLE (PLUG) 7 

Connect (+ Plus) side of SONALERT to pin 8 of UJ7.  - TO INTERNAL DRIVE 
Connect (— Minus) side of SONALERT to pin 6 of UU7. tn lhe 
Note: For COMPUCOLOR I! owners whose disk sald SOCKET FOR DISK 
drive is mounted externally, no cable is used inside 7 DRIVE CARLES 
the machine to attach the disk drive. Therefore, the Sor eee 
UJ7 socket is unused, and only the 16-pin plug is BOARD S — > 
needed to attach the SONALERT. FRONT VIEW 2 JO KEYBOARD 


5. Mount the Sonalert onto the inside of the COMPUCOLOR II cabinet. You can do this by gluing the speaker in 
place, or by using a bracket. The purists (and the daring!) can cut a hole into the COMPUCOLOR II cabinet and 
mount the Sonalert through the hole. 


KEEPING IT SIMPLE 


introduction to fortran 


Largely because of its easy-to-use English syntax and its general purpose nature, BASIC has become the 
standard language for personal computing. Still, BASIC does have its shortcomings as far as speed and flexibility are 
concerned, and some applications are much more conveniently written in a different computer tongue. Assembly 
language has been available on the COMPUCOLOR II since its inception, and many of our most popular programs are 
written in it. In order to expand the capabilities of your COMPUCOLOR II, we now offer Microsoft FORTRAN as a 
$75 option. 

FORTRAN was first developed in 1954, which is practically pre-Cambrian on the computer time scale. But 
FORTRAN was carefully designed and has continued to grow and develop over the last 20 years such that its 
popularity remains very high. A high percentage of serious computer installations use FORTRAN in one form or 
another. 

FORTRAN has some very specific advantages on the COMPUCOLOR ||. FORTRAN is fast — almost as fast as 
assembly language. FORTRAN allows you to generate the fast-moving graphics necessary for real-time video-game 
applications. But FORTRAN is relatively easy to learn — almost as easy as BASIC. In fact, you can even write a 
program in BASIC and then simply translate it into FORTRAN, since FORTRAN and BASIC have many similarities. 
But FORTRAN is a higher level language than BASIC because it is compiled, not interpreted. This means that 
FORTRAN, when read by the COMPUCOLOR II, actually generates assembly language code, whereas BASIC does 
not. 

FORTRAN also allows you to have more formatting control over hard copy, meaning that your output can be 
tailored to precise specifications. FORTRAN has much to offer for both experienced and inexperienced users. In 
order to make FORTRAN available to as many users as possible, we have priced it very well, far below a usual 
single-copy price. 

Creating a working FORTRAN program requires three steps. First, the program is written using an editor such 
as our screen editor. Then the program is compiled — translated into machine language in a relocatable format. 
Thirdly, the program is linked. The Linking Loader uses a library file to look up all of the routines that will be necessary 

to run the program. From these routines the linker produces a runable .PRG program. 
| The program below introduces you to FORTRAN to let you get a taste of this popular computer language. Note 
that it is somewhat different from BASIC in appearance. In FORTRAN, line numbers are not necessary on every line, 
since statements are always processed in sequential order. Note also that all logical comparisons in FORTRAN are 
called with a two-character name surrounded by points. 

The FORTRAN “DO” loop is similar to a “FOR NEXT" loop, except that it has some different rules about what can 
be contained in the loop. This program does an exchange sort on integers. Even those of you who do not plan on 
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investing in this second language for your CCIl should find exposure to this widely-used computing language 
worthwhile. 


C INTEGER EXCHANGE SORT (20<N<0O) 
PROGRAM SORT 
INTEGER VAL, NUMBER (20), TEMP 
10 WRITECS, 100) 
READ(1,110) N 
IF (N.GT.20) GOTO 10 
DO 20 |=1,N 
WRITES, 120) | 
READ(1,130) NUMBER (1) 
20 CONTINUE 
VAL = N-1 
30 LASTSW =O 
DO 40 !=1,VAL 
IF (NUMBER). LT. NUMBER + 1)) GOTO 40 
TEMP = NUMBERIT) 
NUMBER) = NUMBERIT-+ 1) 
NUMBERIT+ 1) = TEMP 
LASTSW = | 
40 CONTINUE 
IF (LASTSW.LT.2) GOTO 50 
VAL = LASTSW-~—1 
GOTO 30 
50 WRITE (3, 140) 
DO 6O !=1,N 
WRITE (3, 150) NUMBER) 
60 CONTINUE 
100 FORMATC+HOW MANY VALUES TO SORT?) 
110 FORMATU(S) 
120 FORMAT(CU+#',13,'> 
130 FORMATU(S6) 
140 FORMATY,’ THE SORTED LIST:’,/ 
150 FORMAT(1X,1I6) 
STOP 
END 


BOOK REVIEWS 


We've decided that a place for book reviews is definitely needed in Colorcue, since most of you report that books 
have been a prime source of your computer knowledge. In the past months, several of you have written in to let us 
know of your experiences with various volumes, and we appreciate your taking the time to keep us informed. Now 
we'd like to return the efforts by supplying, in every issue, reviews of two computer books which are generally 
available. We've chosen a review format which will make deciphering our comments easy. We will answer these 
questions about each book: 

1. At readers of what programming level is the book aimed? 

2. How adaptable are the book’s programs and theory to the COMPUCOLOR II? 

3. What is the overall usefulness of the book? 


PROBLEMS FOR COMPUTER SOLUTION — Donald Spencer (Hayden Publishing) Paperback, 125 pages, a few 
diagrams, mostly text. 

1. This book assumes that the reader has some understanding of a computer language. It offers problems of 
varying degrees of difficulty and of various types. The book is divided into subgroups according to subject matter. 
The book can be used by either a teacher or student as an instructional aid, and is also useful for the hobbyist. There 
are no programming instructions in any language, nor does the book assume that the problems will be worked in a 
certain language. No solutions are given to the problems in the book, answers must be obtained through individual 

erseverance. 
: 2. The book is adaptable to any computer, including the COMPUCOLOR II. All the programs can be written and 
solved on the COMPUCOLOR I! without any difficulty since the book does not demand any specific language. 

3. PROBLEMS FOR COMPUTER SOLUTION is a great aid to someone learning a computer language, 
especially BASIC. The author seems to subscribe to the maxim that experience is the best teacher, and the book 
offers the user a chance to get lots of experience. This book is potentially very useful for teaching BASIC if used with 
another book which gives specifics about the BASIC language. Since the book has a generic approach as far as 
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languages are concerned, and does not specify any one language, the programmer can use this text over and over 
again as he sets about becoming a computer polyglot. This book is recommended to anyone in the process of learning 
a computer language. 


HOME COMPUTERS CAN MAKE YOU RICH — Joe Weisbecker (Hayden Publishing) Paperback, 119 pages, no 
listings, a few pictures. 

1. This book talks to people who are interested in making money from microcomputers. It is relatively jargon- 
free and written so that anyone who has a basic understanding of what a computer is can start profiting from his 
knowledge. The book explains how to profit either from one’s own efforts, or through hiring someone else. The book 
does not require extensive background in computers, and is directed at the average person who has some interest in 
the growing computer market. 

2. The book contains a great deal of information about how to offer a computer service or program. This 
information is readily adaptable to the COMPUCOLOR Il. 

3. The book is informative and offers interesting advice to anyone who desires to profit from personal 
computers. It gives some new ideas on how to sellin this specialized market. For the person with a serious interest in 
selling software, the book is certainly recommended. 


USERS NEWS 


clubs 


Those of you in the Chicago area will be pleased to know that a COMPUCOLOR II users/discussion group has 
been formed. It will be a sub-section of CACHE, the Chicago Area Computer Hobbyist Exchange, and will meet at the 
regular CACHE meetings — every third Sunday at DeVry Institute of Technology. For further information, contact 
Bill Cody, who is organizing the discussion group. He can be reached at (312) 973-4237. 

The Canadian Users Group has a new president, Doug Peel. He can be reached at 21 Dersingham Crest, 
Thornhill, Ontario, CANADA L8T4P5. The phone number is (416) 751-8421. Doug’s company, Quality Software 
Associates, has just come out with an entertainment disk that includes the popular arcade game INVADERS, with 
sound that doesn't require Soundware. The disk also has versions of Battleship and tic-tac-toe. The disk is marketed 
through Compucolor dealers or it can be purchased directly from Quality Software. 


correspondents 


Any users in the Anchorage area can contact: 
Arthur Lawton, Jr. 
SRA Box 1721A 
Anchorage, AK 99507 


He'd like to get some dialogue going with fellow COMPUCOLOR II owners. And in Toledo, Ohio, 
Doug Loomis 
5850 Yarmouth 
Toledo, OH 43623 


would like to start a group of users in his area. If you're in northern Ohio, drop him a line. 


creativity abounds 


One of the COMPUCOLOR II owners in the Huntsville, Alabama area has an artistic bent. His name is Tony 
O'Neil and he manufactures solid bronze belt buckles customized to any design specifications. His most recent 
effort is the ISC logo. He has cast it in a 2x3 chunk of bronze which fits belts up to an inch and a half wide. If you're 
interested in sporting this designer label, priced at $8.00, order from 

The Bronze Bear 
P.O. Box 2251 
Huntsville, AL 35804 


Postage is $1 domestic, $2 foreign. 


history library 


Graphic-History, a company in Atlanta, Georgia, has developed a fascinating package for the COMPUCOLOR II 
which uses color and graphics to describe World War II's Normandy Invasion. The program is a good one — easy to 
use and very informative. The end-user price is $39.95 (plus $2.00 shipping) and the package, which includes a 
Sof-Disk and documentation, can be obtained from: 

Graphic-History 
35 Executive Park Dr., NE 
Atlanta, GA 30329 


For more information, call Mark Whitworth or Carlton Joyce at (404) 321-7910. Graphic History is working ona 
series of historical programs that will become available over the next year. 
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ISA 


Intelligent Systems Corp.. 


225 Technology Park/Atlanta 
Norcross, Georgia 3OO092 
Telephone (404) 449-5961 

TWX 810-766-1581 
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